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ABSTilfcCX 


A vara ton G£ LJ5F 1.5 for fchfl FUF-6 GOHpUtar h£B been 
eiitea^ed to indues JO through th# detftphorC+ TMe inslt&s 
permit le conniunicatioa bccween pto&rftic?! tut nine Project 
HA-0 ti.t'.s Charing fud LISP pro gran a rwnnlttg On til e fCP-'6 f 
Tile Hittliod o£ bend ling, input-output for tint dAtuphOne ie 
gieilar to that for the typewriter, p ftp or $ ape punch, arid 
piiper taps reader. ThieO useful LJ.SP functions erfc presented 
jg 3i,gnpla.3 of dataphune pro£t ^erfling - 
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The dptapftone tn ae^Mfjnc.e b-r-aa-k Biod^, rc^uestins 

3atTfice each Lillliee^onct* ft must 1iS turned <m find of£ with 
the LISP function hcwevti, when it is cunning, Input end 
output to it ure lisodl'aiS in the a-asae saciir^ar &g tt> thd ttlfctypa, 
pgpcr tcpe r^jylef, and jmjifir taps punch, The ■ditiptmute it 
co.it to I ltd by tbs tonCro]! oh esc set era : 

A 'Write on dafaphome* 

0 Ho not Tfiiiia on tlr.tapkoue,. 

D licc,^ iro-3i dataphtTiO. 

£ Dc not read from datapkone. 

Control characters con to typed fi.dia the teletype or timt-itLed 
■rith the function Gth-sr, Sluco CJ£S truncistna Lines longer 
than 72 characters, a cgrriege return is inserted wfcenevec 72 
characters have teen output to the dotephone since the lest 
carriage return, if the user sends the ASCII charur-tec C /o 
through the datapkono program^ It will be sont as the CTf.S In- 
Larrup t character- There f;re several L$SP functions written in 
unnei>fns Ljuigujige which are useful fat dnta^hoae programming: 
dp fn) If h is NIL thu dataphonQ ih turned 

off; OtberWitid it la tuma4 C* find 
initialised, 

dpd <k) The VftlllG f>f dpd (ll) Is a flny for 

chiUTfiCCevC i,» iha dntaphane input 


buffer. If ii ip li?.i j t dpd retHiftlS 31L 
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i£ flnete dire no thatHct&rsj. other* 

Wise, It waits until atraa arriTQr. 

If facia -cti nrnt: t b f a am tocEiued thia 
fnaotlou roCurne a list of the mods 
of ;bo ctumcter. r c and ilns mnkeie of 
charnofcoraD tbc Linda la a nutfibaf da- 
tormiJTtd 1>> die isn^r. Chotacto^s 
eani ft oh CTS S In thtt ftsucs wsnrter t*. 
i;o a normal console fire as&lgnad fflotie 
1, 

fciyd { ) Uetumn the nujnbeE of ehorr'iceers in 

the tifilotype input buffet a* iJI3j if 
there fivt none, 

ccher (ji) EKeouce.a the lorj.'i Cain ASCII character 

k ufl a uanSl'al oliataomf T 

3!q establish cctnutinl cation with Ci’S3j, turn tm ilia datat- 
phope by eXom E in£ tip (f). Then OScftCute ctfifl v }■ in4 type S 
follQiTijd by n Enpce T Tfre fclefcypa c^n mjcr 1m u^i=.d a>) 3 CJSS 
cpnapje.,. Several ufjoRii feature? of tha *:£&£? functions qjLn a „ 
awd dpr egd aw. defteriLed b#fgw, IJfiP i^presp 1 ops for 
fciiese fpncilipp are at. Ciae ev-4 of tlie ciwato* 

dpreftd ( ) ¥hla function up its until there ±0 

input frcza tho ■dut^phace. It thee 
points the f-rbriSrai. Ears oft Ehe teletype 
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one by or.ft, l£ it Vea it 

dona not print 'ibis, but instead 
Evaluates the 5"i(Kpre£^ 1011 w[iLi:h 
iolions* 

(tpmrifcG (>r^y> tfeffr ite teEceB ewo forms of input* 

IS y is 3TL dpra: i £b £SBuses that it 
*a n Hai: of iitoraa mid sande ov££ rhft 
dalijplwme. the characters in Eli® EHflMiEE 
ox these atdsiiS, tfith a ftjjsce 1 '^uCi/o-Toli 
e.?.ch FF.VM'Z. (J tbetr? is o it aenis K us 

art S-expression* 

Ltu'i i 1 ctaa eilewa the user to operate tbs 

as a CJSS cfineolsu tht:r® are 
tvo Eadeai iooe.1. and stmti* cteo is 
initially in lo-ial medo, In tht* modt 
it accepts e-a>Lprwfls±pit* for eeal but 
'JAtcbfeS for Eho fiitigio a tout S-eapragaiaSe 
Sj. STOP* and L, If it find* $ it £oeh 
lata Send mod*. I£ it fifldg STOP it 
texminatjflfl ntUTDl^ STlE* IS it Jjitida 
L it fiend □ ever the dsr-nphoca thu txto 
S“ enptreS BintLS which are typed nffSt* 
tis.it h ttyn In local cede. In send fiifKhi 
it sends charactsre one by on* ffhlie 
watching for (j$ ag£ 4^. (a) 


Tehurni i t 
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fco l*cai If It It fi p.Ti-rl !i 

fcbft «V£iy*£ifly of the E-exp-refl&JLoti 

'■:1l fcift fo flirts rad then. typifl 
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isrt «ciss {lArtm >ul obdc <o v) a {ocq® (f-rm hil) (go 
3 )) (Caro kxl> (go a> e {seto if <reaj»> (nRpat) (cor 

D ((EQUAL El (Qtfm ft)} (GO C» {(BQUAL (i (QpfffE SIO?}') (KEMltfT !T 
IL» ((BQ1EAL 0 (olfOia L)) ^FnCGp {BPlftiHB {R8AD} I) {CPfflftllE {HE 
AO) T))) (T (FRUIT ££l r AL U HIL)))} £ CLERPHI) (GO A) C (CffilD «D 
fD KIL) COPmLM}>) ((Ti'YD HIL) (GO D}» (GO C) 0 (SBTQ K (READCH; 

) {CCfflD ((EQUAl V £') (GO E)) ({EQUAL 0 #(GO G))) (CC&Ut (DUfflEE 
A)) (COUR {QUOTE F)> {PHIMI IT) fCtIDtt (QUOTE C\) (RGMS, (QUOTE 

V)) 00 c> o (DPHRjnt (E7AL (read) fern «JST)) ■*) (mm#} (n 

ff C}))>) EKPR) 


(PEP LI ST ((DTVE1TE (LWJJPA (X ?) <JPS0G (IT) (CCELE (QUOTE A)) (CC 
HAH (QUOTE IT)) (COiJfi (If (GO C)» (93HQ U X) A (CttfB ((PULL U> ft 

os))> (5HHH (cm. u)) (r*m »juhjo (setq o ftpR y)) fto a) c ( 

PRIHT X) a (mrai) (CCBM (QUC'i'Tj C)) (CCttt (QOOIE V>> CHEIUBtf 
HIL)))}} Em) 

(DEm&T ({WE*H> (LftHSEA HIL (PEOG (U V) (&ETQ U (&EU T)) (CGEA 
R (QUCOT £)) A V (CAM TJ>> & foQHD (Wf U} (£0 t))) (SU 

TO ¥ {fWftLCa)) ftO«D {iKQUAL V 5) (GO 0))) {FRIUI V) ftEJlQ If (PL 
U 3 U 6 JJ 71 * 47 * 735 » <60 H) J 1 (TEEPttl) (RV 4 L (BEAU) KIL) C (CCHAJL 
(QUffiT E» (tuaufttr ESP It) 
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